10 REM
20 REM ADDRESS KEEPER BY DONNA K. WOODY
30 :
40 POKE53272,23:REM SELECTS UPPER/LOWER CASE
50 PRINTCHR$(8):REM DISABLES C/SHIFT KEYS
60 POKE53280,5:REM SET BORDER COLOR TO GREEN
70 POKE53281,1:REM SET BACKGROUND COLOR TO WHITE
80 PRINTCHR$(30):REM SET CHARACTER COLOR TO GREEN
90 :
100 REM INITIALIZE VARIABLES
110 :
120 GOSUB3800:GOTO210
130 :
140 REM MOST USED SUBROUTINES
150 :
160 POKE204,0:POKE207,0:GETZ$:RETURN
170 PRINTTAB(16+LEN(Q$)+1)"[145][145]";:FORK=LEN(Q$)+1TOBC:PRINTCHR$(32);:NEXT:RETURN
180 :
190 REM TITLE, INSTRUCTIONS & MAIN MENU
200 :
210 PRINTCHR$(147):PRINTTAB(6)A1$
220 PRINT:PRINT:PRINTTAB(12)"0.  [197]XIT PROGRAM"
230 PRINT:PRINTTAB(12)"1.  [201]NSTRUCTIONS"
240 PRINT:PRINTTAB(12)"2.  [197]NTER NAMES"
250 PRINT:PRINTTAB(12)"3.  [195]HANGE/[193]DD NAMES"
260 PRINT:PRINTTAB(12)"4.  [208]RINT NAMES"
270 PRINT:PRINT:PRINT
280 PRINT"[197]NTER SELECTION [0 - 4]: ";
290 GOSUB160:IFZ$=""THEN290
300 POKE204,1:PRINT
310 Z=VAL(Z$):IFZ=0THENIFZ$="0"THEN390
315 IFZ=0THEN200
320 T=1
330 IFZ>4THENZZ=6:ZY=15:GOSUB2470:GOTO280
340 ONZGOSUB2220,430,1700,1860
350 FORX=1TO100:NAME$(X)="":ADR$(X)="":CITY$(X)="":STATE$(X)="":ZIP$(X)=""
360 PH$(X)="":NEXT
370 FLAG=0
380 GOTO210
390 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
395 POKE631,13:POKE632,13:POKE198,2:END
400 :
410 REM INPUT ROUTINE
420 :
430 FORX=TTO100
440 PRINTCHR$(147):PRINTTAB(6)A1$
450 PRINT"[213]SING THIS OPTION WITH CREATE A NEW"
460 PRINT"[193][196][196][210][197][211][211] [198][201][204][197].  [201]F YOU HAVE AN EXISTING"
470 PRINT"FILE THAT YOU WANT TO ADD TO, RETURN TO"
480 PRINT"THE [205]AIN [205]ENU AND TAKE THE [195]HANGE/[193]DD "
490 PRINT"OPTION."
500 PRINT"[196]O YOU WANT TO CONTINUE WITH THIS OPTION(Y/N)? ";
510 GOSUB160:IFZ$=""THEN510
520 POKE204,1:PRINT:IFZ$="N"ORZ$="[206]"THENRETURN
530 FORX=TTO100
540 FLAG=0
550 PRINTCHR$(147):PRINTTAB(6)A1$
560 PRINT"[197]NTER <[209]> TO END ENTRY."
570 PRINT"[206]AME:";:GOSUB2510:PRINTTAB(16)"[145]";:BC=22:GOSUB2570:NAME$(X)=Q$
580 IFFLAG=1THENFLAG=0:CC=X-1:X=100:GOTO680
590 PRINT"[211]TREET ADDRESS:";:GOSUB2510:PRINTTAB(16)"[145]";
600 BC=22:GOSUB2570:ADR$(X)=Q$
610 PRINT"[195]ITY:";:GOSUB2510:PRINTTAB(16)"[145]";:BC=22:GOSUB2570:CITY$(X)=Q$
620 PRINT"[211]TATE:";:GOSUB2520:PRINTTAB(16)"[145]";:BC=3:GOSUB3320:ZZ=11:ZY=9
630 GOSUB3210:IFFLAG=0THENPRINT:GOTO620
640 STATE$(X)=Q$
650 PRINT"";:FORK=1TO29:PRINTCHR$(32);:NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]"
660 PRINT"[218]IP CODE:";:GOSUB2530:PRINTTAB(16)"[145]";:BC=6:GOSUB2820:ZIP$(X)=Q$
670 PRINT"[208]HONE NUMBER:";:GOSUB2540:PRINTTAB(16)"[145]";:BC=13:GOSUB3000:PH$(X)=Q$
680 NEXT
690 PRINTCHR$(147):PRINTTAB(6)A1$
700 PRINT"[206]OW READY TO CHECK NAMES AND ADDRESSES"
710 PRINT"FOR ERRORS BEFORE WRITING THEM TO DISK."
720 PRINT""A2$;
730 GOSUB160:IFZ$=""THEN730
740 POKE204,1:PRINT
750 :
760 REM CHECK FOR TYPOS & CHANGE
770 :
780 FORX=1TOCC
790 PRINTCHR$(147):PRINTTAB(6)A1$
800 PRINT"[206]AME:";:GOSUB2510:PRINTTAB(16)"[145]"NAME$(X)
810 PRINT"[193]DDRESS:";:GOSUB2510:PRINTTAB(16)"[145]"ADR$(X)
820 PRINT"[195]ITY:";:GOSUB2510:PRINTTAB(16)"[145]"CITY$(X)
830 PRINT"[211]TATE:";:GOSUB2520:PRINTTAB(16)"[145]"STATE$(X)
840 PRINT"[218]IP CODE:";:GOSUB2530:PRINTTAB(16)"[145]"ZIP$(X)
850 PRINT"[208]HONE NUMBER:";:GOSUB2540:PRINTTAB(16)"[145]"PH$(X)
860 PRINT"[201]NDICATE ITEM TO CHANGE:"
870 PRINT"   <[206]>AME, <[193]>DDRESS, <[195]>ITY, <[211]>TATE,"
880 PRINT"   <[218]>IP, <[208]>HONE NUMBER, <[199]>ET NEXT"
890 :PRINT"[197]NTER LETTER: ";
900 GOSUB160:IFZ$=""THEN900
910 POKE204,1:PRINT"[146] "
920 PRINT"";:FORK=1TO29:PRINTCHR$(32);:NEXT:PRINT"[145][145][145][145][145][145]"
930 IFZ$="[206]"ORZ$="N"THEN1010
940 IFZ$="A"ORZ$="[193]"THEN1040
950 IFZ$="C"ORZ$="[195]"THEN1070
960 IFZ$="[211]"ORZ$="S"THEN1100
970 IFZ$="[218]"ORZ$="Z"THEN1150
980 IFZ$="P"ORZ$="[208]"THEN1170
990 IFZ$="G"ORZ$="[199]"THEN1190
1000 ZZ=5:ZY=13:GOSUB2470;:GOTO860
1010 PRINTCHR$(19)"";TAB(16);:BC=22:GOSUB2570:NAME$(X)=Q$
1020 GOSUB170
1030 PRINT"":GOTO860
1040 PRINTCHR$(19)"";TAB(16);:BC=22:GOSUB2570:ADR$(X)=Q$
1050 GOSUB170
1060 PRINT"":GOTO860
1070 PRINTCHR$(19)"";TAB(16);:BC=22:GOSUB2570:CITY$(X)=Q$
1080 GOSUB170
1090 PRINT"":GOTO860
1100 PRINTCHR$(19)"";TAB(16);:BC=3:GOSUB3320:ZZ=13:ZY=7:GOSUB3210
1110 IFFLAG=0THENPRINT:GOTO1100
1120 STATE$(X)=Q$
1130 PRINT"";:FORK=1TO29:PRINTCHR$(32);:NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]"
1140 PRINT:GOTO860
1150 PRINTCHR$(19)"";TAB(16);:BC=6:GOSUB2820:ZIP$(X)=Q$
1160 PRINT:GOTO860
1170 PRINTCHR$(19)"";TAB(16);:BC=13:GOSUB3000:PH$=Q$
1180 PRINT"[145][145]":GOTO860
1190 NEXT
1200 PRINTCHR$(147):PRINTTAB(6)A1$
1210 PRINT"[208]LEASE HAVE PATIENCE WITH ME..."
1220 PRINT"[201] AM WRITING INFORMATION TO THE DISK."
1230 CLOSE15:OPEN15,8,15,"R0:ADDRESS FILE=ADDRESS FILE":GOSUB3940:CLOSE15
1240 IFCZ=62THENCLOSE4:OPEN4,8,4,"0:ADDRESS FILE,SEQ,W":GOTO1550
1250 IFCZ=72THEN1450
1260 IFCZ=63THEN1290
1270 IFCZ>20THEN1500
1280 GOTO1200
1290 PRINTCHR$(147):PRINTTAB(6)A1$
1300 PRINT"[193][196][196][210][197][211][211][160][198][201][204][197] ALREADY EXISTS.  [201]F YOU"
1310 PRINT"WANT TO SAVE THE CHANGES OR ENTRIES YOU"
1320 PRINT"HAVE MADE, THE EXISTING FILE MUST BE"
1330 PRINT"DELETED BEFORE THE NEW INFORMATION CAN"
1340 PRINT"BE SAVED.  [201]F YOU DO NOT ENTER 'YES',"
1350 PRINT"YOU WILL BE SENT BACK TO THE MAIN MENU"
1360 PRINT"AND YOUR DATA WILL BE LOST.  [217]OU MAY"
1370 PRINT"PUT IN A NEW DISK AND ANSWER 'YES' TO"
1380 PRINT"KEEP BOTH SETS OF DATA.  [196]O YOU WISH TO"
1390 INPUT"SAVE YOUR CHANGES/ENTRIES (YES/NO) ";Z$
1400 IFZ$="YES"ORZ$="[217][197][211]"THEN 1420
1410 RETURN
1420 CLOSE4:OPEN4,8,4,"0:ADF.TEMP,SEQ,W":GOSUB1550
1430 PRINT"[208]LEASE WAIT...":CLOSE15:OPEN15,8,15,"S0:ADDRESS FILE":CLOSE15
1440 CLOSE15:OPEN15,8,15,"R0:ADDRESS FILE=ADF.TEMP":CLOSE15:RETURN
1450 PRINT"[212]HIS DISK IS FULL."
1460 PRINT"[208]LEASE PLACE ANOTHER DISK IN THE DRIVE."
1470 PRINT""A2$;
1480 GOSUB160:IFZ$=""THEN1480
1490 POKE204,1:PRINT"[146] ":GOTO1200
1500 PRINT"[201] HAVE DETECTED AN ERROR IN TRYING TO"
1510 PRINT"WRITE TO THE DISK.  [212]HE ERROR IS:"
1520 PRINT""CZ,MZ$,TZ,SZ
1530 PRINT"[211]INCE THIS MAY BE AN IRRECOVERABLE"
1540 PRINT"ERROR, THE PROGRAM IS BEING TERMINATED.":CLOSE4:CLOSE15:END
1550 PRINT#4,CC
1560 FORX=1TOCC
1570 PRINT#4,NAME$(X)
1580 PRINT#4,ADDR$(X)
1590 PRINT#4,CITY$(X)
1600 PRINT#4,STATE$(X)
1610 PRINT#4,ZIP$(X)
1620 PRINT#4,PH$(X)
1630 NEXT
1640 CLOSE4
1650 PRINTCHR$(147):PRINTTAB(6)A1$
1660 PRINT"[196]ATA HAS BEEN WRITTEN TO THE DISK.":FORK=1TO500:NEXT:RETURN
1670 :
1680 REMCHANGE NAMES
1690 :
1700 GOSUB3500
1710 PRINTCHR$(147):PRINTTAB(6)A1$
1720 PRINT"[217]OU MAY CHOOSE TO:"
1730 PRINT"     0.  [210]ETURN TO [205]AIN [205]ENU"
1740 PRINT"     1.  [205]AKE [195]HANGES"
1750 PRINT"     2.  [205]AKE [193]DDITIONS"
1760 PRINT"[197]NTER SELECTION (0 - 2): ";
1770 GOSUB160:IFZ$=""THEN1770
1780 POKE204,1:PRINT"[146] ":PRINT:Z=VAL(Z$)
1790 IFZ=0THENRETURN
1800 IFZ=1THENGOTO780
1810 IFZ=2THENT=CC+1:GOTO530
1820 ZZ=7:ZY=10:GOSUB2470:GOTO1760
1830 :
1840 REM PRINT ROUTINE
1850 :
1860 GOSUB3500
1870 PRINTCHR$(147):PRINTTAB(6)A1$
1880 FLAG=0
1890 PRINT"[217]OU MAY PRINT TO:"
1900 PRINT"     0.  [210]ETURN TO [205]AIN [205]ENU"
1910 PRINT"     1.  [204]ABELS"
1920 PRINT"     2.  [204]IST"
1930 PRINT"[197]NTER SELECTION (0 - 2): ";
1940 GOSUB160:IFZ$=""THEN1940
1950 POKE204,1:PRINT"[146] ":PRINT:Z=VAL(Z$)
1960 IFZ=0THEN RETURN
1970 IFZ=1THENFLAG=1:GOTO 2000
1980 IFZ=2THENFLAG=0:GOTO2000
1990 ZZ=6:ZY=10:GOSUB2470:GOTO1930
2000 PRINTCHR$(147):PRINTTAB(6)A1$
2010 PRINT"[208]LEASE MAKE SURE PRINTER IS ON"
2020 PRINT"AND PAPER OR LABELS ARE LINED UP.":PRINT""A2$;
2030 GOSUB160:IFZ$=""THEN2030
2040 POKE204,1:PRINT"[146] "
2050 OPEN4,4,7
2060 FORX=1TOCC
2070 PRINT#4,NAME$(X)
2080 PRINT#4,ADR$(X)
2090 PRINT#4,CITY$(X);:PRINT#4,",";
2100 PRINT#4,STATE$(X);:PRINT#4,"   ";
2110 PRINT#4,ZIP$(X)
2120 IFFLAG=0THENPRINT#4,PH$(X)
2130 IFFLAG=1THENPRINT#4:PRINT#4:PRINT#4:GOTO2160
2140 IFFLAG=0THENPRINT#4:PRINT#4
2150 IFFLAG=0THENIFX=10THENFORK=1TO8:PRINT#4:NEXT
2160 NEXT
2170 PRINT#4
2180 CLOSE4:GOTO1870
2190 :
2200 REM INSTRUCTIONS
2210 :
2220 PRINTCHR$(147):PRINTTAB(6)A1$
2230 PRINT:PRINT"[212]HIS PROGRAM WILL MAINTAIN AN ELECT-"
2240 PRINT:PRINT"RONIC ADDRESS BOOK WITH 100 ENTRIES."
2250 PRINT:PRINT"[217]OU WILL BE PROMPTED TO ENTER NAMES,"
2260 PRINT:PRINT"ADDRESSES, AND PHONE NUMBERS. [197]NTRY IS"
2270 PRINT:PRINT"ENDED BY PRESSING <[209]> FOR QUIT WHEN"
2280 PRINT:PRINT"ASKED FOR ANOTHER NAME.  [212]HE '[201][206][211][212]/[196][197][204]'"
2290 PRINT:PRINT"KEY WILL ALLOW YOU TO CORRECT ANY"
2300 PRINT:PRINT"MISTAKES AS YOU ARE ENTERING THE NAMES"
2310 PRINT:PRINT"AND ADDRESS.  [217]OU WILL ALSO BE GIVEN":PRINT""A2$;
2320 GOSUB160:IFZ$=""THEN2320
2330 POKE204,1:PRINTCHR$(147):PRINTTAB(6)A1$
2340 PRINT:PRINT"ANOTHER CHANCE TO CORRECT ERRORS SINCE"
2350 PRINT:PRINT"YOU WILL BE ASKED TO CHECK EACH"
2360 PRINT:PRINT"ENTRY BEFORE IT IS WRITTEN TO DISK."
2370 PRINT:PRINT"[193]NOTHER OPTION ALLOWS YOU TO CHANGE"
2380 PRINT:PRINT"NAMES AND ADDRESSES ONCE THAY HAVE BEEN"
2390 PRINT:PRINT"SAVED TO DISK.  [193] PRINTING OPTION"
2400 PRINT:PRINT"IS ALSO INCLUDED THAT WILL ALLOW YOU"
2410 PRINT:PRINT"TO PRINT ADDRESS TO LABELS OR A LIST.":PRINT"";A2$;
2420 GOSUB160:IFZ$=""THEN2420
2430 POKE204,1:PRINT:RETURN
2440 :
2450 REM SUBROUTINES
2460 :
2470 FORXZ=1TOZZ:PRINT"";:NEXT
2480 PRINT"[212]HAT IS AN INVALID ENTRY.";
2490 PRINTCHR$(19):FORXZ=1TOZY:PRINT"";:NEXT:RETURN
2500 REM      PRINT LINES FOR INPUT
2510 PRINTTAB(16):FORJ=1TO23:PRINTA4$;:NEXT:PRINT:RETURN
2520 PRINTTAB(16):PRINTA4$;A4$" ":RETURN
2530 PRINTTAB(16):FORJ=1TO5:PRINTA4$;:NEXT:PRINT" ":RETURN
2540 PRINTTAB(16):FORJ=1TO3:PRINTA4$;:NEXT:PRINT"/";:FORJ=1TO3:PRINTA4$;:NEXT
2550 PRINT"-";:FORJ=1TO4:PRINTA4$;:NEXT:PRINT"  ":RETURN
2560 REM GET ROUTINE
2570 Q$=""
2580 FORK=1TOBC
2590 POKE204,0:POKE207,0:GETZ$:IFZ$=""THEN2590
2600 IFASC(Z$)>64ANDASC(Z$)<91THENPRINTZ$;:GOTO2740:REM LOWER CASE
2610 IFASC(Z$)>192ANDASC(Z$)<219THENPRINTZ$;:GOTO2740:REM UPPER CASE
2620 IFASC(Z$)>43ANDASC(Z$)<58THENPRINTZ$;:GOTO2740:REM 0 TO 9 , . / -
2630 IFASC(Z$)>37ANDASC(Z$)<42THENPRINTZ$;:GOTO2740:REM & ' ( )
2640 IFASC(Z$)=34ORASC(Z$)=35THENPRINTZ$;:GOTO2740:REM " #
2650 [139][198](Z$)[178]58[176][198](Z$)[178]59[167][153]Z$;:[137]2740:[143] : ;
2660 [139][198](Z$)[178]32[167][153]Z$;:[137]2740:[143] SPACE
2670 [139][198](Z$)[178]20[167][153]"WAIT ";:[137]2700:[143] DELETE
2680 [139][198](Z$)[178]13[167]K[178]BC:[137]2730:[143] CR
2690 [137]2590
2700 [139]K[178]1[167][153]A4$:[153]"ON"[163]16):Q$[178]"":[139]K[178]1[167][137]2590
2710 [153]"CMDCMD "A4$"CMDCMD"A4$"CMD";
2720 Q$[178][200](Q$,K[171]2):K[178]K[171]1:[137]2590
2730 [139]Q$[178]"Q"[176]Q$[178]"(null)"[175][195](Q$)[178]1[167]Q$[178]"":K[178]BC:FLAG[178]1:[137]2760
2740 Q$[178]Q$[170]Z$
2750 [139][195](Q$)[177]BC[171]1[167]K[178]0:[151]204,1:[153]"WAIT ":[153]"ONON":[141]2510:[153][163]16)"ON";:[137]2570
2760 [130]
2770 Z[178][195](Q$):[139]Z[178]0[167]2790
2780 Q$[178][200](Q$,Z[171]1)
2790 [151]204,1:[139]Z$[178][199](13)[167][153]"WAIT ":[153]:[142]
2800 :
2810 [143] GET ROUTINE FOR ZIP CODE
2820 Q$[178]""
2830 [129]K[178]1[164]BC
2840 [151]204,0:[151]207,0:[161]Z$:[139]Z$[178]""[167]2840
2850 [139][198](Z$)[177]47[175][198](Z$)[179]58[167][153]Z$;:[137]2930
2860 [139][198](Z$)[178]32[167][153]Z$;:[137]2930
2870 [139][198](Z$)[178]20[167][153]"WAIT ";:[137]2900
2880 [139][198](Z$)[178]13[167]K[178]BC:[137]2950
2890 [137]2840
2900 [139]K[178]1[167][153]A4$:[153]"ON"[163]16):Q$[178]"":[137]2840
2910 [153]"CMDCMD "A4$"CMDCMD"A4$"CMD";
2920 Q$[178][200](Q$,K[171]2):K[178]K[171]1:[137]2840
2930 Q$[178]Q$[170]Z$
2940 [139][195](Q$)[177]BC[171]1[167]K[178]0:[151]204,1:[153]"WAIT ":[153]"ONON":[141]2530:[153][163]16)"ON";:[137]2820
2950 [130]
2960 [151]204,1:[139]Z$[178][199](13)[167][153]"WAIT  ":[153]:[142]
2970 :
2980 [143] GET ROUTINE FOR PHONE NUMBER
2990 :
3000 Q$[178]""
3010 [129]K[178]1[164]BC
3020 [139]K[178]4[167][153]"/";:Z$[178]"/":[137]3140
3030 [139]K[178]8[167][153]"-";:Z$[178]"-":[137]3140
3040 [151]204,0:[151]207,0:[161]Z$:[139]Z$[178]""[167]3040
3050 [139]([198](Z$))[177]47[175]([198](Z$))[179]58[167][153]Z$;:[137]3140
3060 [139][198](Z$)[178]20[167][151]204,1:[153]"WAIT ";:[137]3090
3070 [139][198](Z$)[178]13[167]K[178]BC:[137]3160
3080 [137]3040
3090 [139]K[178]1[167][153]A4$:[153]"ON"[163]16):Q$[178]"":K[178]1:[137]3040
3100 [139]K[178]5[176]K[178]9[167]Q$[178][200](Q$,K[171]3):K[178]K[171]2:[137]3120
3110 Q$[178][200](Q$,K[171]2):K[178]K[171]1
3120 [153]"ON":[141]2540:[153][163]16)"ON"Q$;:[137]3040
3130 Q$[178][200](Q$,K[171]2):K[178]K[171]1:[137]3040
3140 Q$[178]Q$[170]Z$
3150 [139][195](Q$)[177]BC[171]1[167]K[178]0:[151]204,1:[153]"WAIT ":[153]"ONON":[141]2540:[153][163]16)"ON";:[137]3000
3160 [130]
3170 [151]204,1:[139]Z$[178][199](13)[167][153]"WAIT ":[153]:[142]
3180 :
3190 [143] CHECK TO SE IF VALID STATE
3200 :
3210 FLAG[178]0
3220 [129]K[178]1[164]112[169]2
3230 [139]Q$[178][202](AA$,K,2)[167]K[178]112:FLAG[178]1:[137]3250
3240 [139]Q$[178][202](AB$,K,2)[167]K[178]112:FLAG[178]1:[137]3250
3250 [130]
3260 [139]FLAG[178]1[167]3280
3270 [141]2470
3280 [142]
3290 :
3300 [143] GET ROUTINE FOR STATE
3310 :
3320 Q$[178]""
3330 [129]K[178]1[164]BC
3340 [151]204,0:[151]207,0:[161]Z$:[139]Z$[178]""[167]3340
3350 [139][198](Z$)[177]64[175][198](Z$)[179]91[167][153]Z$;:[137]3430:[143] LOWER CASE
3360 [139][198](Z$)[177]192[175][198](Z$)[179]219[167][153]Z$;:[137]3430:[143] UPPER CASE
3370 [139][198](Z$)[178]20[167]3400:[143] DELETE
3380 [139][198](Z$)[178]13[167]K[178]BC:[137]3450:[143] CR
3390 [137]3340
3400 [139]K[178]1[167][153]A4$:[153]"ON"[163]16):Q$[178]"":[139]K[178]1[167][137]3340
3410 [153]"CMD ";A4$;"CMDCMD"A4$"CMD";:
3420 Q$[178][200](Q$,K[171]2):K[178]K[171]1:[137]3340
3430 Q$[178]Q$[170]Z$
3440 [139][195](Q$)[177]BC[171]1[167]K[178]0:[151]204,1:[153]"WAIT ":[153]"ONON":[141]2520:[153][163]16)"ON";:[137]3320
3450 [130]
3460 [151]204,1:[139]Z$[178][199](13)[167][153]"WAIT ":[153]:[142]
3470 :
3480 :[143] READ FROM DISK
3490 :
3500 [153][199](147):[153][163]6)A1$
3510 [153]"(null)LEASE HAVE PATIENCE WITH ME...."
3520 [153]"RIGHT$ AM LOADING THE ADDRESS FILE FROM THE  DISK."
3530 [160]15:[159]15,8,15,"R0:ADDRESS FILE=ADDRESS FILE":[141]3940:[160]15
3540 [139]CZ[179][177]62[175]CZ[179][177]63[167]3610
3550 [139]CZ[178]62[167]3570
3560 [139]CZ[178]63[167][160]4:[159]4,8,4,"0:ADDRESS FILE,SEQ,R":[137]3660
3570 [153]"(null)LEASE CHECK YOUR DISK.  (null)HE FILE FOR"
3580 [153]"ATNSTR$STR$(null)VAL(null)(null)CLOSE(null)VALVAL(null)VAL(null) IS NOT ON THIS DISK.":[153]""A2$;
3590 [141]160:[139]Z$[178]""[167]3590
3600 [151]204,1:[153]:[142]
3610 [153]"RIGHT$ HAVE DETECTED AN ERROR IN TRYING TO"
3620 [153]"WRITE TO THE DISK.  (null)HE ERROR IS:"
3630 [153]""CZ,MZ$,TZ,SZ
3640 [153]"(null)INCE THIS MAY BE AN IRRECOVERABLE"
3650 [153]"ERROR, THE PROGRAM IS BEING TERMINATED.":[160]4:[160]15:[128]
3660 [132]4,CC
3670 [129]X[178]1[164]CC
3680 [132]4,NAME$(X)
3690 [132]4,ADR$(X)
3700 [132]4,CITY$(X)
3710 [132]4,STATE$(X)
3720 [132]4,ZIP$(X)
3730 [132]4,PH$(X)
3740 [130]
3750 [160]4
3760 [142]
3770 :
3780 [143] INITIALIZE VARIABLES
3790 :
3800 A2$[178]"(null)RESS SPACE BAR TO CONTINUE"
3810 A3$[178]"RIGHT$S THIS CORRECT (Y/N)?CLOSE"
3820 A1$[178]"ATN STR$ STR$ (null) VAL (null) (null)   (null) VAL VAL (null) VAL (null)"
3830 A4$[178]"TO"
3840 A5$[178]"ATN(null)ATN(null)ATN(null)ATN(null)LENATNLEN(null)LEN(null)STR$VALSTR$LENASC(null)CHR$ATNLEFT$RIGHT$RIGHT$STR$RIGHT$(null)RIGHT$(null)RIGHT$ATN(null)(null)(null)(null)(null)ATN(null)VAL(null)STR$(null)ATN(null)RIGHT$(null)(null)(null)(null)(null)(null)(null)(null)(null)VAL(null)(null)(null)LEFT$(null)MID$(null)(null)"
3850 A6$[178]"(null)(null)(null)LEN(null)STR$(null)LEFT$(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)LEN(null)STR$(null)(null)(null)(null)(null)(null)(null)(null)(null)ATN(null)ATN(null)(null)(null)RIGHT$(null)(null)(null)(null)(null)RIGHT$(null)(null)ATN(null)CHR$(null)"
3860 A7$[178]"ALAKAZARCACOCTDEDCFLGAHUIDILINIAKSKYLAMEMDMAMIMNMSMOMTNENVNHNJNM"
3870 A8$[178]"NYNCNDOHOLOR@ARISCSDTNTXUTVTVAWAWVWIWYPRVITTASGU"
3880 AA$[178]A5$[170]A6$:AB$[178]A7$[170]A8$
3890 [134]NAME$(100),ADR$(100),CITY$(100),STATE$(100),ZIP$(100),PH$(100)
3900 [142]
3910 :
3920 [143] DOS & FILE ERROR MESSAGES & CHECKS
3930 :
3940 [160]15:[159]15,8,15:[132]15,CZ,MZ$,TZ,SZ:[160]15:[142]